#!/usr/bin/perl
# -*- perl -*-
#
# http://rosalind.info/problems/dna/

use strict;
use warnings;

my $counts = {};

while (<>)
{
    foreach (split //)
    {
	$counts->{$_}++;
    }
}

print join(" ", map { $counts->{$_}} qw(A C G T)), "\n";
